home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today - The Disc! 5 / CD-ROM Today - The Disc (Issue 5)(November 1994).ISO / mac / DHA demo / Don Norman Folder / The Library / The Library.rsrc / CSTR_3474_saveStateCSTR < prev    next >
Text File  |  1994-09-21  |  2KB  |  76 lines
  1. answer tStr("Libmsg",22) with tStr("LibMsg",23) or tStr("LibMsg",11)
  2. if it = tStr("LibMsg",23) then
  3. ask file tStr("LibMsg",24)
  4. if it ¡ "" then
  5. put it into fN
  6. DeleteFile fN
  7. put the short id of this cd into orig
  8. LS
  9. LM true
  10. set cantAbort of this stack to true
  11. put the number of cds in bg "details" into numCds
  12. go first cd of bg "details"
  13. put the number of fld "local notes" into lnN
  14. put the number of fld "styled" into sN
  15.  
  16. --the name of the stack, just for the record
  17. get the short name of this stack
  18. AppendDataToFile it, the number of chars in it, fN
  19.  
  20. --here are the paper clips
  21. repeat with x = 70 to 73
  22. get the loc of bg btn id x
  23. put the short name of bg btn id x & "," & it & return after temp
  24. end repeat
  25. delete the last char of temp
  26. AppendDataToFile temp, the number of chars in temp, fN
  27.  
  28. --here are the blacked cards.
  29. get fld "blacked cards"
  30. AppendDataToFile it, the number of chars in it, fN
  31.  
  32. --here are the marked cards
  33. get fld "marked cards"
  34. AppendDataToFile it, the number of chars in it, fN
  35.  
  36. --here is the bookmark
  37. get the script of cd btn "bookmark" of cd 2
  38. AppendDataToFile it, the number of chars in it, fN
  39.  
  40. repeat with x = 1 to numCds
  41. if mouseClick() then
  42. --DeleteFile fN
  43. exit repeat
  44. end if
  45. cbusy
  46. doGauge
  47. get the number of this cd
  48. AppendDataToFile it, the number of chars in it, fN
  49. --New 9/11/92
  50. get line 1 of fld "characters"
  51. if it = "" then
  52. get textsize of char 1 of fld "styled"
  53. if it = 12 then get "s"
  54. else if it = 18 then get "l"
  55. else get "s"
  56. end if
  57. get it &"■■ª" -- just to be sure it is unique
  58. AppendDataToFile it, the number of chars in it, fN
  59. --this is the s or l indicating small or large print
  60. --end New 9/11/92
  61. get fld lnN
  62. AppendDataToFile it, the number of chars in it, fN
  63. AppendStyleDataToFile "b", lnN, fN
  64. AppendStyleDataToFile "b", sN, fN
  65. get fld "verticals"
  66. AppendDataToFile it, the number of chars in it, fN
  67. go next cd in this bg
  68. end repeat
  69. LM false
  70. set cantabort of this stack to false
  71. go cd id orig
  72. send opencard to this cd
  73. US
  74. vis "window gauge",(checked(tStr("LibMsg",43)) and CDs())
  75. end if
  76. end if